home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 34 / Amiga Format CD34 (1998-11-20)(Future Publishing)(GB)[!][Christmas issue].iso / -websites- / f1_gp / ftp / f1gp-ed_upd341.lha / F1GP-Ed_341to342 / Patch_F1GP-Ed < prev    next >
Text File  |  1998-06-21  |  5KB  |  225 lines
  1. ; $VER: Patch_F1GP-Ed 2.5 (21.6.98)
  2. ;   by Oliver Roberts (oliver.roberts@iname.com)
  3. ;
  4. ; French translation by Daniel Grenson
  5.  
  6. ;************
  7. ; PARAMETERS
  8. ;************
  9.  
  10. (set #newver "3.42")
  11. (set #oldver "3.41")
  12. (set #oldvernum 3)
  13. (set #oldrevnum 41)
  14.  
  15. ;*************
  16. ; LOCALE INIT
  17. ;*************
  18.  
  19. (if (= (exists "Env:Language") 1)
  20.     (set @language (getenv "Language"))
  21. )
  22.  
  23. ;*****************
  24. ; ENGLISH STRINGS
  25. ;*****************
  26.  
  27. (set #str-createnew "Creating new %s file in T:")
  28. (set #str-copynew "Copying updated %s file to destination")
  29. (set #str-deletetmp "Deleting temporary file")
  30. (set #str-welcome (cat
  31.     "This Installer script will attempt to patch an existing "
  32.     "installation of F1GP-Ed %s.  The F1GP-Ed, F1GP-Ed.guide, "
  33.     "History.txt & 1998.f1gp files will be transformed into their "
  34.     "v%s counterparts.\n\n"
  35.     "Make sure you have booted from your hard drive and "
  36.     "have already successfully installed F1GP-Ed %s, before "
  37.     "continuing with this installation!\n\n"
  38.     "Do you want to continue?")
  39. )
  40. (set #str-where "Where have you installed F1GP-Ed?")
  41. (set #str-failed (cat
  42.     "Could not find the \"F1GP-Ed\" executable in this drawer - "
  43.     "make sure you have selected the correct drawer.\n\n\n"
  44.     "Patching Failed!")
  45. )
  46. (set #str-attemptpatch "Attempting to patch F1GP-Ed %ld.%ld")
  47. (set #str-wrongver "Found F1GP-Ed %ld.%ld - unable to patch this version.")
  48. (set #str-installnew "Installing new files")
  49. (set #str-updatecats "Updating catalogs")
  50. (set #str-theend (cat
  51.     "\nEnjoy using F1GP-Ed ;-)\n\n"
  52.     "The latest version of F1GP-Ed is always available from the "
  53.         "F1GP-Ed Web Site\n\n"
  54.         "   %s\n\n"
  55.     "%s\n")
  56. )
  57. (set #str-updatelib "Updating f1gp.library")
  58.  
  59. ;****************
  60. ; FRENCH STRINGS
  61. ;****************
  62.  
  63. (if (= @language "français") (
  64.  
  65.  (set #str-createnew "Creating new %s file in T:")
  66.  (set #str-copynew "Copie des mises à jour du fichier %s vers le fichier de destination")
  67.  (set #str-deletetmp "Effacement du fichier temporaire")
  68.  (set #str-welcome (cat
  69.     "Ce script d'installation essayera de 'patcher' une "
  70.         "installation existante de F1GP-Ed %s.  Les fichiers F1GP-Ed, "
  71.     "F1GP-Ed.guide, History.txt & 1998.f1gp seront transformés en leurs "
  72.     "v%s équivalents.\n\n"
  73.     "Assurez-vous d'avoir lancé votre ordinateur au départ de votre "
  74.     "disque dur et que vous avez déja installé avec succès F1GP-Ed %s, "
  75.     "avant de poursuivre cette installation!\n\n"
  76.     "Voulez-vous continuer?")
  77.  )
  78.  (set #str-where "Où avez-vous installé F1GP-Ed?")
  79.  (set #str-failed (cat
  80.     "Impossible de trouver le programme exécutable \"F1GP-Ed\" dans ce "
  81.     "tiroir - assurez-vous d'avoir sélectionné le tiroir correct.\n\n\n"
  82.     "Echec de l'opération de patch!")
  83.  )
  84.  (set #str-attemptpatch "Essai de 'patch' de F1GP-Ed %ld.%ld")
  85.  (set #str-wrongver "Trouvé F1GP-Ed %ld.%ld - impossible de patcher cette version.")
  86.  (set #str-installnew "Installation des nouveaux fichiers")
  87.  (set #str-updatecats "Mise à jour des catalogues")
  88.  (set #str-theend (cat
  89.     "\nAmusez-vous en utilisant F1GP-Ed !\n\n"
  90.     "La dernière version de F1GP-Ed est toujours disponible sur "
  91.         "le site Web F1GP-Ed\n\n"
  92.         "   %s\n\n"
  93.     "%s\n")
  94.  )
  95. ))
  96.  
  97. ;************
  98. ; PROCEDURES
  99. ;************
  100.  
  101. (procedure P_Patch
  102.     (if (exists (tackon (tackon @default-dest #pdir) #pfile))
  103.         (
  104.             (working (#str-createnew #pfile))
  105.             (run ("C/spatch -p%s.pch -oT:%s.new \"%s\"" #pfile #pfile (tackon (tackon @default-dest #pdir) #pfile)))
  106.             (if (exists ("T:%s.new" #pfile))
  107.                 (
  108.                     (copyfiles
  109.                         (prompt (#str-copynew #pfile))
  110.                         (source ("T:%s.new" #pfile))
  111.                         (dest (tackon @default-dest #pdir))
  112.                         (newname #pfile)
  113.                     )
  114.                     (delete ("T:%s.new" #pfile) (prompt #str-deletetmp))
  115.                 )
  116.             )
  117.         )
  118.     )
  119. )
  120.  
  121. ;*******
  122. ; START
  123. ;*******
  124.  
  125. (if (NOT (askbool
  126.         (prompt (#str-welcome #oldver #newver #oldver))
  127.         (default 0)
  128.         (help "")
  129.     ))
  130.     (exit (quiet))
  131. )
  132.       
  133. (welcome "")
  134.  
  135. (complete 0)
  136.  
  137. (set #destdir
  138.     (askdir
  139.         (prompt #str-where)
  140.         (help @askdir-help)
  141.         (default @default-dest)
  142.     )
  143. )
  144.  
  145. (set @default-dest #destdir)
  146.  
  147. (if (<> 1 (exists (tackon @default-dest "F1GP-Ed"))) (
  148.     (message #str-failed)
  149.     (exit (quiet)))
  150. )
  151.  
  152. ;*****************
  153. ; PATCH OLD FILES
  154. ;*****************
  155.  
  156. (set #vernum (getversion (tackon @default-dest "F1GP-Ed")))
  157. (set #ver (/ #vernum 65536))
  158. (set #rev (- #vernum (* #ver 65536)))
  159.  
  160. (if (AND (= #ver #oldvernum) (= #rev #oldrevnum))
  161.     (
  162.         (message (#str-attemptpatch #ver #rev))
  163.         (set #psrcdir "")
  164.         (set #pdir "")
  165.                 (set #pfile "F1GP-Ed")
  166.         (P_Patch)
  167.         (complete 33)
  168.         (set #pdir "Docs/")
  169.                 (set #pfile "F1GP-Ed_english.guide")
  170.         (P_Patch)
  171.                 (set #pfile "F1GP-Ed_deutsch.guide")
  172.         (P_Patch)
  173.         (complete 66)
  174.         (set #pdir "")
  175.                 (set #pfile "History.txt")
  176.         (P_Patch)
  177.     )
  178.     (
  179.         (message (#str-wrongver #ver #rev))
  180.                 (exit (quiet))
  181.     )
  182. )
  183.  
  184. (complete 85)
  185.  
  186. ;*****************
  187. ; UPDATE CATALOGS
  188. ;*****************
  189.  
  190. (set #newcatalog "Catalogs/ÃeÓtina/F1GP-Ed.catalog")
  191.  
  192. (if (exists (tackon @default-dest #newcatalog))
  193.     (
  194.         (working #str-updatecats)
  195.         (set #pdir "Catalogs/ÃeÓtina/")
  196.                 (set #pfile "F1GP-Ed.catalog")
  197.         (P_Patch)
  198.     )
  199. )
  200.  
  201. ;****************
  202. ; COPY NEW FILES
  203. ;****************
  204.  
  205. (copyfiles
  206.     (prompt #str-installnew)
  207.     (source "")
  208.     (choices "1998.f1gp" "1998.f1gp.events" "Reg_Form")
  209.     (dest @default-dest)
  210.     (help @copyfiles-help)
  211.     (confirm)
  212.     (infos)
  213. )
  214.  
  215. ;*********
  216. ; THE END
  217. ;*********
  218.  
  219. (complete 100)
  220.  
  221. (exit (#str-theend
  222.         "http://www.nanunanu.org/~oliver/F1GP-Ed/"
  223.     "Oliver Roberts (oliver.roberts@iname.com)")
  224. )
  225.